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SERIES~III 8086/8057/8083 MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE TCOM 


OBJECT, MODULE PLACED IN :F1:TCOM.O3J 


ASSEMSLER INVOKED BY: ASMS86.8& 3s FI: TCOM.A86 PRINTCSF1:TCOM.LST) DEBUG 
Loc oOBJ LINE SOURCE 
41 +1 STITLEC’LLNA TCL Common Routines 11/15/81 14:10%) 
2 NAME tcom 
3 +1 Sinclude C:fl:cpyrtedca) 
= 4 ; 
= 5 7 /x Intel Corporation Proprietary Information. 
= é ; This listing is supplied under the terms of a 
=4 7 ? license agrement with Intel Corporaton and 
= 8 7 may not be copied nor disclosed except in 
=4 9 , accordance with the terms of that agreement. */ 
=4 10 ; 
11 ; 
12 ; George D Marshall x7-5117 
13 ; 
14 ; This is a collection of routines common to all TCL code, 
15 ; crunched into assembler for code size reduction. 
16 ? The first several routines are the 64k-modulo arithmetic used in 
17 , TCL sequence number operationss the remainder are various 
12 ; small common routines that lent themselves to being re~implemented 
19 ? in assembler for code reduction and spped increases. 
20 ; 
21 DECLARE 
22 ; cur$max$cdhs BYTE — EXTERNAL, 
225 ; leid$vector(maxicdbs3lit) WORD EXTERNAL; /x list of allocated CIOs */ 
24 
Zo DGROUP GROUP DATA 
alec 2€é DATA SEGMENT PUBLIC ‘’OATA’ 
27 EXTRN curmaxcdbs:8YTE,-lcidvector:WORD 
23 , EXTRN ro_:wORD z in RP 
ls 29 DATA ENDS 
30 
31 CGROUP GROUP CODE 
oS 32 CODE SEGMENT PUBLIC ‘CODE’ 
33 ASSUME CS:CGROUP,DS:O0GROUP 
34 
55 PUBLIC gtmodS4k,gemod64k,-maxmodé64k-min-max 
36 PUBLIC chksumcale,search_lcidvector/DLSOURCE_EQ_HOST,stky_incr 
37 
38 : [RK KKKKAKKKKK KKK KKK / 
39 ; [xx gtsmod64k */ 
49 ; [REKKRK KR RK RK KK KR RK KK / 
41 ratSmodé4k: PROCEDURE Cn-m) BYTE PUBLIC, 
42 7 Routine to return TRUE if n > me 
43 7 modulo 64K. Test is conservative- if 
44 7 (nem) =8000H, than result is false x*/ 
0000 45 GTMODé6é4K: 
46 . 
47 ,DECLARE (nvm) WORD, 
4§ ,iF (Cn -~ m) <> 0) AND CCn-m) < 8Q00H) THEN RETURNCtruad; 
Q000 59 49 POP ox 7 get return address 
POP lb x yom 


0001 538 =O 


BOS6/EORT/BOSS MACEN ASSEMSLER LLNA TCL Common Routines VIA V STS, THAT Q4/23/R2 PAGE 


LOC OBJ LIN= SOURCE 
0002 58 51 POP ax 7 on 
0003 2BC3 52 SUB axslx 7 ax <7 nom 
0005 7408 5= Jz gt2 , return false if n-m=0 (ax already has zero) 
0007 7804 54 JS gt1 7 return false if nom >= 8000 Ci.wa.r sign bit on) 
0009 BOFF 55 MOV AL,OFFH -; return true 
OCOOB FFE1 56 JMP cx , return to caller 
. . 57 7FELSE RETURNC false); 
0000 8000. 58 gti: MOV AL,OH 
CQOOF FFE 59 gt2: JMP cx , return to caller 
60 7END gt 3mod64k, 
$1 
62 ; [KKK KKEKKKKKEK KKK KKK / 
63 ; [xx geSmodé4k * | 
64 > [ERK KKKEKEKKKKKKKKKEEKK/ 
| 65 raesnod64k: PROCEDURECn-m) BYTE PUBLIC; 
0011 66 GEMODE4K: 
oF , /* Routine to return TRUE if n >= me 
8 7 modulo $4K. Test is conservative> if 
69 7 Cn-m)=8000H, then result is false */ 
70 POECLARE (nsm) WORD, 
71 7IF Cn-m) < 8000H THEN RETURNC(true); 
72 7ELSE RETURNC false), 
0011 59 73 POP cx 7 get return address 
O012 58 74 POP lx 7m 
0013 58 fe POP ax 7 on 
0014 28C3 76 SU8 axshbx 7 ax <7 nom 
0016 7804 ra JS get 7 return false if n-m >= 8000H (i.wee, sign bit is on) 
0018 BOQFF 78 MOV AL,OFFH -, set "true”™ return valus 
OO1A FFE 79 JMP CX , ‘return to caller 
001C 8000 80 get: MOV AL, OH > set "false" return value ’ 
OOVE FFE 34 JMP cx , return to caller 
/ é2 7END geSmod64k; 
83 
Bb ; [KRKKRKKEKK KKK KR KEKE / 
oa] ; . [xx maxSmodé4k x/ 
86 : [RK RK KKK EK RK K KEKE KK/ 
37 smaxsnodé4ks:s PROCEDURECns-m) WORD PUBLIC, 
88 7, Routine to return the higher of n and m- 
89 , modulo 64K. x*/ 
0020 90 MAXMOD64K: 
. $1 DECLARE (nem) WORD; 
92 ,IF (Cn-m)-< 80CGOH THEN RETURN(n), ELSE RETURN); 
OO20 59 93 POP cx 7 return address 
0021 58 oh POP ly x , om 
0022 58 95 POP ax 7 on 
0023 38C3 96 CMP axshx , set flags for n-nm 
0025 7902 97 JNS maxm 7 return nif (n-m) < 8000 (Csign bit off) 
CO27 8BCS 98 MOV axsbx , set return value = m 
0029 FFE1 99 maxmt:  JMP cx 7 return to caller 
100 
101 7END max 3mod64k; 
102 
103 
404 : [KKK KK KKK KK 


105 ; [xxx min *x*/ 


0041 


sok nek ee el OS ee SN eo a ee SS eek ek es ee 
mr rps py pe a 3B ow oan srr AO O00 
SON PWP SB OO an OUP WMH Orom arn 


TLNA TCL Conmon Poutines 


SOURCE 


e 
7 


vmins PROCEDURE(n-m) WORD 


MIN: | 
,DECLARE Cnv-m) WORD, 
7ZF n < m THEN RETURNCn);- 


POP cx ; 
POP lp x , 
POP ax ; 
CMP axshbx ; 
JS mint ; 

; ELSE RETURN(m), 
MOV axslx ; 

7END min, 

mint: JMP cx ; 


° 
7 
a 
7 
. 
td 


ymax: PROCEDURE Cn-m) WORD 


MAXs 
7ODECLARE Cnv-m) WORD, 
7IF n > mw THEN RETURN (Cn) 


POP cx ? 
POP lb x 7 
POP ax ; 
CMP axXsbx 7 
JA max 4 ; 
; ELSE RETURN(m), 
MOV axsbx ; 
7END max, 
maxis: JMP cx , 


we Ne SN 
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[Rae K KKK KR KKK] 
PUBLIC; 


7, routines to return minimum of two 
7 unsigned word values (not modulo). 


return address 

n 

set flags for n-m 

jump if nis less ~ its in ax for return 


set return value to m 
return to caller 
[ek RK KKK KK KKK KK] 


fee max xk ke / 
[KKK KKK KKK KEK / 


7 routine to return maximum of two 
y unsigned word values (not modulo). 


“a 


return address 

m 

n | 

set flags for n-m 

jump if n is greater - its in ax for return 


set return value to m 
return to caller 
[KRKK IKK KKK KR KKK KKK KK / 


[xxx chkSsum3calce ***/ 
[KKK KR KK KR KKK KKK RK 


vchkSsumscalc: PROCEDURECseg$o) WORD PUBLIC, 


CHKSUMCALC: 


,OECLARE 

7 chksum WORD, 
; ségso WORD, 
; maxso WORD, 
; currsSwd to WORD, 


This routine calculates the header 

checksum on the send or receive segment 
indicated by the offset supplied. For 

send segments, all header fields must have 
been set prior to calling this routine. 
Note: checksum does not cover Data Link 
header, since there can be several OLLSs, 
and a Network header is not yet dafined. *«/ 


we Ne Ne No Ne Ne Ne Ne 


/x max offset in seg to checksum */ 
/* ptr to current seg header wd */ 
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~~ we mee ee ees 


Loc O89 LINE SOURCE 
161 ; currSwd BASED currSud$o WORD, /* the current header word being addad x/ 
162 ; /x to the checksum */ 
163 ; gag BASED segtdo # 
164 ,S1F. 7 
165 *SNOLIST INCLUDE C2: f1:TCLSEG.INC) 
166 7SELSE 
167 ,SENOIF 
168 7 7 
169 
eseniece 170 segbut STRUC , segment buffer structure - must track TCLSEG.INC 
0000 171 kaosptr oO a >, kaos field 
0004 172 buflen OW ? a, a 
0006 ES desthO OW ? , DOLL field: destination host id - first word 
0008 174 cestht OW ? 
DOOA te: desth2 OW ? 
OOOC 176 srcho DW ? , DLL field: source host ID 
OOOQE 177 srchi OW 4 
0010 178 srch2 OW 2 
0012 179 ditype DW ? , OLL field: type field 
0014 | 1380 tclversion OW ? , first field of TCL header 
aaa! 131 seghuf ENDS 
182 
0009 183 tclheaderwds EQU og y, number of 16-bit words in tcl header, 
184 7 not counting the checksum. This must 
Tee , match the seagmant definition in file 
186 7 TCLSEG.INC. 
187 7 NOTE: TCLGBL.INC has telheaderlen in bytes, 
188 ; including the checksum field. 
189 
1990 vcurrsud$o = w~seg.tcliversion,s /* seat base to first byte of TCL header */ 
0041 5A 191 POP clx , return address - NOTE cx not used as above cue to LOOP 
0042 58 192 POP bb x 7 segment buffer offset 
0043 8D5F14 193 LEA bx,CbxJ.etclversion > bx holds currwdo 
194 7 /x max offset to sum is up to but not */ 
195 7max$So = currdSudfzo + (tclSheaderS$len - 2); /* including chksum wd */ 
0046 890900 196 MOV cxstclheaderwds 7 NOTE: asm version exploits loop instruction, 
197 7 so we seat up an index count instead of an 
198 , offset limit. CX holds this. 
199 e,chksum = O07 . 
0049 33C0 200 XOR AXs ax , set to zero - AX holds cummulative checksum 
201 7990 forever; /x Note: loop has besn arranged to make */ 
202 ; chksum = chksum + currsud, /x this version of compiler generate efficientx/ 
00468 0307 ; 203 chk: ADD ax7vChxJ y add current word to checksum 
204 
205 | ; currSwdtSo = currSwd3o0 + 2; /x code-- don’t change it without chacking x*/ 
004D 830302 206 ADD bxr2 7 bump offset to next word by two bytes 
207 
208 . ; IF currS$wd3o0 >= max$o THEN RETURNCchksum);7 /* the resultant coda. */ 
0050 E2F9 209 LOOP chk1 7 decr cxs jmp if not done 
Q0052 FFE2 210 JMP dx , return to caller 
211 ,END? 


27END chkSsumtecalc? 


POM PO hr 
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LOC OBJ LINE SOURCE 
216 ; [xxk*k search _lcidvector *«xxxx*/ 
ote ; [RK KKK KKK KKK KK KKK KKK KR KKK KKK / 
218 rsearch_lcidvector: PROCEDURE (findStarget) WORD PUBLIC, 
219 , This routine accepts an alleged 
220 r connection ID, and searches the local 
‘221 7 connection ID vector Cleidvector) to try 
222 , to find a match for it, returning OFFFFH 
223 , if no match, or the index into the vector 
224 , if it is found. 
225 , (This is really a customized FINDWs a code- 
226 7 saver routine to avoid having the FINOW 
227 , code expanded in-line multiple places in 
228 7 the coder and to eliminate having to push 
229 7 common parameters on stack) 

0054 230 search _lcidvector: 
oo 7OECLARE 
232 ; findStaraqet WORD; 
233 ,FRETURN( FINOWCSlcidvector, finddtarget, maxi3cdbs) ); 
234 

0054 58 235 POP lx , return address 

0055 BFOOOO is 236 MOV DI,OFFSETCLCIDVECTOR) 

.0058 58 237 - > PQP ax , findtarget is in ax 

0059 8BADEDOD00 E 238 MOV CL,CURMAXCDBS 

0050 6500 239 MOV CH,OH 

QOSF 1€ 240 © PUSH DS , 1 

0060 07 2414 POP ES , 1 

0061 FC 242 CLO 

QO062 8301 243 MOV DX-CX: 

0064 €306 244 JCXZ S+8H 

0066 F2 245 REPNZ SCASW 

0067 AF 

0068 75F8 246 JNZ $-6H 

OO6A 28301 : 24 SUB DX,CX 

QO06C 4A ; 248 DEC DX 

0060 8BC2 249 MOV AX,OX 

OO6F FFES 250 JMP lx , return to caller 
251 7END search_icidvesctor, 
252 
253 : [RK KEK RK KAR K KKK KKK KKK / 
254 ; {xx <dlsource_eq_host kf 
2535 ; [RRR KR KKK KKK KKK KK KKK KKK KKK] 
256 , dlsource_eq_host: PROCEDUREChost3p) BYTE PUBLIC, 

0071 257 DLSOURCE_EQ_HOST: 
258 7 DECLARE 
259 ; hostSp POINTER; 
260 . , code~saver routine to compare host ids 
261 7 for the RP process 
262 7 Logic has been re~done to elimate 
263 > the test for OFFFF required by PL/M’s 
264 7 CMPW builtin. 
265 > IF CMPWC drp_.dlSsourceO, hostSp, 3) = OFFFFH /* order of operands affects code 

ize */ 

0071 5A 266 POP dx , return address 

267 > STATEMENT # 617 


Q0072 3BE0000 


mM 
hu 
Oo 
oO 


MOV STVOFPPSET CRP LD 
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LOC OBJ LINE 
0075 5F 269 
0076 O7 270 
0077 890300 271 
OO7A FC 272 
0078 F3 273 
007C A7 
007D 7504 274 
275 
276 
OO7F BOFF 277 
0081 FFE2 278 
27: 
280 
0083 8000 281 
0085 FFE2 282 
283 
284 
235 
286 
237 
288 
289 
290 
291 
292 
293 
0087 294 
0087 59 295 
0088 58 296 
0089 07 297 
298 
299 
300 
301 
OO8A 26813FFFFF 302 
OO8F 7403 303 
0091 26FFO7 304 
305 
0094 FFE1 306 
307 
308 
-oo- 309 
310 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


SOURCE 
POP di 
POP 2s 
MOV CX, 3H 
CLD 
REPZ CMPSW 
JNZ dls1 

; THEN RETURNC true), 
MOV AL,OFFH 
JMP dx 

, ELSE RETURN false); 

dist: MOV AL,OH 
Jit P ax; 


7 END dlsource_eq_host, 


‘Ne ‘we Ns Ne 


7stky_iner: 
STKY_INCR: 


‘we ‘Na Ne 


ws ‘Ns Ne 


e 
, 
es 


7 
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get offset part of hostp 
get base part of hostp 
set up count register for compare 


jump if no match 


STATEMENT # 618 
return value = true 
return to caller 


STATEMENT # 619 
return value = false 


return to caller 


PAGS 
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[kx stky_inecr 


*/ 
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Routine to do a "sticky increment” 
of a word based on the pointer 
y argument, and return the result. 


we Neo 


PROCEDURE CudSp) PUBLIC, 


POP ex , return address 
POP I> x , offset of argumant 
POP es y base of argument 
,OECLARE 
? wdSp POINTER, 
; wd BASED wdSp WORD; 
7IF wed <> OFFFFH THEN wd wd + 17 
CMP ES: CBXI],OFFFFH 
Se stiky1 
INC WORD PTR ES:fBX] 
7END stky_iner, 
stky1:  JMP CX , return to caller 
; 
CODE ENDS 
ENO 
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SPCOL 
GETCHK.LST 
05/04/82 
15:54:46 
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PL/M-36 COMPILER iLNA TCL Set and Check Addrese from minforn 


Sek LES@ LTE PLM ES Ve2e0 CONPITEATLION OF MODULE GETCHK, 
OBJECT MODULE PLACED IN :F1:GETCHK.08J 
COMPILER INVOKED BY: PLM86.86 SFIZSGETCHK.P@26 OPTIMIZECS) XREF SETCF1) 


STITLEC’ILNA TCL Get and Check Address from mipform 
SCOMPACT DEBUG NOCOND 
kee WARNING 10 IN 1 CLINE 2): RESPECIFIED PRIMARY CONTROL, IGNORED 


SIF f7 
SELSE 
BINCLUDE C:FIscnyrt.decp) 


/x Intel Corporation Propristary Information. 
This listing is supplied under the terms of a 
license agrement with Intel Corporaton and 

may not be copied nor disclosed except in 
accordance with the terms of that agreement. x/ 


/x routine to convert 


11/23 14:00 


04/23/82 


DEBUG 


11/23 14:00’) 


a "“mipform" of 


address from nost software into a plim 
pointer, and check that a legal address 
was obtained. Used by TCL and NL. x/ 


1 getchk: D0; 


SIF f7 
Sess 
SINCLUDE (:F1:MIP.DCP) 


2 1 = cqémipsend: PROCEDURECSocket, msg$p) BYTE EXTERNAL, 
S eq = DECLARE socket WORD, 
= msg5p POINTER; 
4 2 = END caSminSsend, 
5 1 = cqgmipconnect: PROCEDURE Cportids, mbx3o0) BYTE EXTERNAL, 
& 2 = DECLARE portid 3YTE-, 
= mbx so WORD, 
7 2 = END caSmipconnect,s 
8 1 = ceqSmipsregqister: PROCEDURE Cprocedureago) BYTE EXTERNAL? 
g e = DECLARE procedureSo WORD, 
10 2 = END ca3mipSregqister, 


cqgsmipsgetSaddress: PROCEDURE (mip _form) POINTER EXTERNAL, 
DECLARE mip form POINTER, 
END cqsmipsgetsaddresss | 


—-> i 
Gn 
mw 
ou ou 


14 1 = cqSmipsgetsmiptform: PROCEOURECptr) POINTER EXTERNAL; 
15 2 = DECLARE ptr POINTER- 
16 2 = ENC caoSmipSaetSmipstform, 


ENOIF 


mM ro hm) ro 


O 
oO 
me) 
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I~ 
in 
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(om) 
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get$chkSaddress: PROCEDURE Cmipform3np, ptrio) BYTE PUBLIC; 


DECLARE 
mipformsp POINTER, /x the address to be converted, in MIP FORM x/ 
ptrso WORD, /x offset of ptr to store converted value *x/ 


target3notr BASED ptrSo POINTER; /* the pointer we will write into */ 


targetS$ptr = cqSmipSget$address(miptformitp), 
IF SELECTORSOFCtargetsSptr) = OFFFFH THEN RETURNCO);7 /x return false if bad address x/ 
ELS RETURNCOFFH); /x return true if ok */ 


END getichkSaddress; 


END getSchk, 
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CR 
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MODULE INFORMATION: 


CODE AREA STIZE 
CONSTANT AREA SIZ 
VARIABLE AREA SIZ 
MAXIMUM STACK SIZ 
64 LINES READ 


END OF 


PROGRAM 
PROGRAM 


PL/M-&86 


WARNING 
ERRORS 


COMPILA 


i) pe eum Oe 
0ss- 


Bot 
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NAME, ATTRIBUTES, 


COMIPCONNECT 
CQMIPGETADORESS. 


CQMIPGETMI 


COMIPREGISTER., 


CQMIPSENO. 
GETCHK . . 


GETCHKADDRESS 


MEXO? << 
MIPFORMP . 
MIP_LFORM . 
MSGP « o« 
PORTID » . 
PROCEDUREO 
PTR ot Oo 
PTRO ws « 
SELECTOROF 
SOCKET . 
TARGETPTR. 


= Q024H 
E = QQOCH 
& = O0COdH 
E = OGCEH 
TION 


PFORM. 


cl Check 
REFERENCE LISTING 


Acldracs 


PROCEDURE 
PROCEDURES 
PROCEOQURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


WORD IN 
POINTER 
POINTER 
POINTER 
BYTE IN 
WORD IN 
POINTER 
WORD IN 
BUILTIN 
WORD IN 
POINTER 


11/23 14:00 604 


from miptform 


AND REFERENCES 


BYTE EXTERNAL(C1) STACK=O0000H 
POINTER EXTERNAL C3) STACK=0000H 
POINTER EXTERNAL (4) STACK=0000H 
BYTE EXTERNAL C2) STACK=0000H 
BYTE EXTERNALCQ) STACK=O0000H 
STACK=0000H 
BYTE PUBLIC STACK=Q00EH 
PROC (CQMIPCONNECT) PARAMETER 
IN PROC (GETCHKADDRESS) PARAMETER AUTOMATIC 
IN PROC (CQMIPGETADDRESS) PARAMETER 
IN PROC (CQMIPSEND) PARAMETER j) 
PROC (CQMIPCONNECT) PARAMETER ts) 
PROC CCQMIPREGISTER) PARAMETER 9 
IN PROC CCQMIPGETMIPFORM) PARAMETER 
PROC CGETCHKADDRESS) PARAMETER AUTOMATIC 

20 
PROC (CQMIPSEND) PARAMETER fe) 
BASEDCPTRO) IN PROC (GETCHKADDRESS) 


12 


18 


20 


2Q 
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